home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue27 / ktmbevel / KTMBEVEL.ZIP / Demo / Unit1.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1997-10-04  |  4.5 KB  |  187 lines
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5.  
  6. uses
  7.     {$IFDEF    Win32} Windows,    {$ELSE}WinTypes, WinProcs, {$ENDIF}Messages, SysUtils,
  8.     Classes, Graphics, Controls, Forms,    Dialogs, ExtCtrls, StdCtrls, Buttons,    Spin,
  9.     ktMBevel;
  10.  
  11.  
  12. type
  13.   TForm1 = class(TForm)
  14.     ktMultiBevel1: TktMultiBevel;
  15.     ktMultiBevel2: TktMultiBevel;
  16.     SpinEdit1: TSpinEdit;
  17.     SpinEdit2: TSpinEdit;
  18.     CheckBox1: TCheckBox;
  19.     Label1: TLabel;
  20.     Label2: TLabel;
  21.     Label3: TLabel;
  22.     Label4: TLabel;
  23.     Label5: TLabel;
  24.     Label6: TLabel;
  25.     Panel1: TPanel;
  26.     Panel2: TPanel;
  27.     Panel3: TPanel;
  28.     ColorDialog1: TColorDialog;
  29.     RadioGroup1: TRadioGroup;
  30.     RadioGroup2: TRadioGroup;
  31.     RadioGroup3: TRadioGroup;
  32.     RadioGroup4: TRadioGroup;
  33.     BitBtn1: TBitBtn;
  34.     PaintBox1: TPaintBox;
  35.     procedure FormCreate(Sender: TObject);
  36.     procedure SpinEdit1Change(Sender: TObject);
  37.     procedure SpinEdit2Change(Sender: TObject);
  38.     procedure CheckBox1Click(Sender: TObject);
  39.     procedure Panel1Click(Sender: TObject);
  40.     procedure Panel2Click(Sender: TObject);
  41.     procedure Panel3Click(Sender: TObject);
  42.     procedure RadioGroup1Click(Sender: TObject);
  43.     procedure RadioGroup2Click(Sender: TObject);
  44.     procedure RadioGroup3Click(Sender: TObject);
  45.     procedure RadioGroup4Click(Sender: TObject);
  46.     procedure BitBtn1Click(Sender: TObject);
  47.     procedure PaintBox1Paint(Sender: TObject);
  48.   private
  49.     { Private-Deklarationen }
  50.   public
  51.     { Public-Deklarationen }
  52.   end;
  53.  
  54. var
  55.   Form1: TForm1;
  56.  
  57. implementation
  58.  
  59. {$R *.DFM}
  60.  
  61. procedure    TForm1.FormCreate(Sender:    TObject);
  62. begin
  63.     ktMultiBevel1.BevelWidth:= SpinEdit1.Value;
  64.     ktMultiBevel1.BorderWidth:=    SpinEdit2.Value;
  65. end;
  66.  
  67. procedure    TForm1.SpinEdit1Change(Sender: TObject);
  68. begin
  69.     ktMultiBevel1.BevelWidth:= SpinEdit1.Value;
  70. end;
  71.  
  72. procedure    TForm1.SpinEdit2Change(Sender: TObject);
  73. begin
  74.     ktMultiBevel1.BorderWidth:=    SpinEdit2.Value;
  75. end;
  76.  
  77. procedure    TForm1.CheckBox1Click(Sender:    TObject);
  78. begin
  79.     ktMultiBevel1.Transparent:=    CheckBox1.Checked;
  80. end;
  81.  
  82. procedure    TForm1.Panel1Click(Sender: TObject);
  83. begin
  84.     if ColorDialog1.Execute    then
  85.     begin
  86.         Panel1.Color:= ColorDialog1.Color;
  87.         ktMultiBevel1.Color:=    Panel1.Color;
  88.         if ktMultiBevel1.ColorFixed    then
  89.         begin
  90.             Panel2.Color:= ktMultiBevel1.ColorHighlight;
  91.             Panel3.Color:= ktMultiBevel1.ColorShadow;
  92.         end;
  93.     end;
  94. end;
  95.  
  96. procedure    TForm1.Panel2Click(Sender: TObject);
  97. begin
  98.     if ColorDialog1.Execute    then
  99.         if not ktMultiBevel1.ColorFixed    then
  100.         begin
  101.             Panel2.Color:= ColorDialog1.Color;
  102.             ktMultiBevel1.ColorHighlight:= Panel2.Color;
  103.         end;
  104. end;
  105.  
  106. procedure    TForm1.Panel3Click(Sender: TObject);
  107. begin
  108.     if ColorDialog1.Execute    then
  109.         if not ktMultiBevel1.ColorFixed    then
  110.         begin
  111.             Panel3.Color:= ColorDialog1.Color;
  112.             ktMultiBevel1.ColorShadow:=    Panel3.Color;
  113.         end;
  114. end;
  115.  
  116. procedure    TForm1.RadioGroup1Click(Sender:    TObject);
  117. begin
  118.     case RadioGroup1.ItemIndex of
  119.         0    :    ktMultiBevel1.Shape:=    bspBottomLine;
  120.         1    :    ktMultiBevel1.Shape:=    bspLeftLine;
  121.         2    :    ktMultiBevel1.Shape:=    bspRect;
  122.         3    :    ktMultiBevel1.Shape:=    bspRightLine;
  123.         4    :    ktMultiBevel1.Shape:=    bspTopLine;
  124.     end;
  125.   RadioGroup3.Enabled:= (RadioGroup1.ItemIndex = 2);
  126. end;
  127.  
  128. procedure    TForm1.RadioGroup2Click(Sender:    TObject);
  129. begin
  130.     case RadioGroup2.ItemIndex of
  131.         0    :    ktMultiBevel1.BevelOuter:= bstLowered;
  132.         1    :    ktMultiBevel1.BevelOuter:= bstNone;
  133.         2    :    ktMultiBevel1.BevelOuter:= bstRaised;
  134.     end;
  135. end;
  136.  
  137. procedure    TForm1.RadioGroup3Click(Sender:    TObject);
  138. begin
  139.     case RadioGroup3.ItemIndex of
  140.         0    :    ktMultiBevel1.BevelInner:= bstLowered;
  141.         1    :    ktMultiBevel1.BevelInner:= bstNone;
  142.         2    :    ktMultiBevel1.BevelInner:= bstRaised;
  143.     end;
  144. end;
  145.  
  146. procedure    TForm1.RadioGroup4Click(Sender:    TObject);
  147. begin
  148.     case RadioGroup4.ItemIndex of
  149.         0    :    begin
  150.                     ktMultiBevel1.ColorFixed:= True;
  151.                     Panel2.Color:= ktMultiBevel1.ColorHighlight;
  152.                     Panel3.Color:= ktMultiBevel1.ColorShadow;
  153.                 end;
  154.         1    :    ktMultiBevel1.ColorFixed:= False;
  155.     end;
  156. end;
  157.  
  158. procedure    TForm1.BitBtn1Click(Sender:    TObject);
  159. begin
  160.     Application.Terminate;
  161. end;
  162.  
  163. procedure TForm1.PaintBox1Paint(Sender: TObject);
  164. var a, b, g, r, x: integer;
  165. begin
  166.     b:= 0;
  167.   g:= 128;
  168.     r:= 255;
  169.   x:= 0;
  170.   a:= PaintBox1.Width div 32;
  171.   with PaintBox1.Canvas do
  172.   begin
  173.       Pen.Width:= a + 1;
  174.     while r > 192 do
  175.     begin
  176.             Pen.Color:= RGB(r, g, b);
  177.       Rectangle(x, 0, x + a, PaintBox1.Height);
  178.       b:= b + 6;
  179.       g:= g + 2;
  180.       r:= r - 2;
  181.       x:= x + Pen.Width;
  182.     end;
  183.   end;
  184. end;
  185.  
  186. end.
  187.